home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / RealTime Graphics ActiveX / DATA.3 / Examples / VB / UITools / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-10-23  |  4.9 KB  |  153 lines
  1. VERSION 5.00
  2. Object = "{BE18A623-E7F3-11D0-A956-00C0F6A06F60}#1.0#0"; "QCBUTTON.OCX"
  3. Object = "{B0A82CC6-E89F-11D0-A956-00C0F6A06F60}#1.0#0"; "QCGRPBUT.OCX"
  4. Object = "{F5932EA3-4AFD-11D1-A956-00C0F6A06F60}#1.0#0"; "QCSCRBAR.OCX"
  5. Begin VB.Form Form1 
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   5484
  8.    ClientLeft      =   48
  9.    ClientTop       =   336
  10.    ClientWidth     =   8604
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5484
  13.    ScaleWidth      =   8604
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin QCSCRBARLib.QCScrBar QCScrBar2 
  16.       Height          =   3372
  17.       Left            =   6600
  18.       TabIndex        =   6
  19.       Top             =   960
  20.       Width           =   732
  21.       _Version        =   65536
  22.       _ExtentX        =   1291
  23.       _ExtentY        =   5948
  24.       _StockProps     =   0
  25.    End
  26.    Begin QCSCRBARLib.QCScrBar QCScrBar1 
  27.       Height          =   852
  28.       Left            =   2040
  29.       TabIndex        =   5
  30.       Top             =   3600
  31.       Width           =   4092
  32.       _Version        =   65536
  33.       _ExtentX        =   7218
  34.       _ExtentY        =   1503
  35.       _StockProps     =   0
  36.    End
  37.    Begin QCBUTTONLib.QCButton QCButton3 
  38.       Height          =   972
  39.       Left            =   4920
  40.       TabIndex        =   4
  41.       Top             =   2400
  42.       Width           =   1092
  43.       _Version        =   65536
  44.       _ExtentX        =   1926
  45.       _ExtentY        =   1714
  46.       _StockProps     =   0
  47.    End
  48.    Begin QCBUTTONLib.QCButton QCButton2 
  49.       Height          =   972
  50.       Left            =   3480
  51.       TabIndex        =   3
  52.       Top             =   2400
  53.       Width           =   1092
  54.       _Version        =   65536
  55.       _ExtentX        =   1926
  56.       _ExtentY        =   1714
  57.       _StockProps     =   0
  58.    End
  59.    Begin QCBUTTONLib.QCButton QCButton1 
  60.       Height          =   972
  61.       Left            =   2040
  62.       TabIndex        =   2
  63.       Top             =   2400
  64.       Width           =   1212
  65.       _Version        =   65536
  66.       _ExtentX        =   2138
  67.       _ExtentY        =   1714
  68.       _StockProps     =   0
  69.    End
  70.    Begin QCGRPBUTLib.QCGrpBut QCGrpBut2 
  71.       Height          =   852
  72.       Left            =   2400
  73.       TabIndex        =   1
  74.       Top             =   840
  75.       Width           =   3252
  76.       _Version        =   65536
  77.       _ExtentX        =   5736
  78.       _ExtentY        =   1503
  79.       _StockProps     =   0
  80.    End
  81.    Begin QCGRPBUTLib.QCGrpBut QCGrpBut1 
  82.       Height          =   2412
  83.       Left            =   480
  84.       TabIndex        =   0
  85.       Top             =   1560
  86.       Width           =   1452
  87.       _Version        =   65536
  88.       _ExtentX        =   2561
  89.       _ExtentY        =   4254
  90.       _StockProps     =   0
  91.    End
  92. Attribute VB_Name = "Form1"
  93. Attribute VB_GlobalNameSpace = False
  94. Attribute VB_Creatable = False
  95. Attribute VB_PredeclaredId = True
  96. Attribute VB_Exposed = False
  97. Option Explicit
  98. Private Sub Form_Load()
  99.     Call BuildGraph1
  100.     Call BuildGraph2
  101.     Call BuildGraph3
  102.     Call BuildGraph4
  103.     Call BuildGraph5
  104. End Sub
  105. Private Sub BuildGraph1()
  106. Dim sButtonStrings As String
  107. Dim CR As String
  108.        'number of buttons
  109.     QCGrpBut1.ControlNumButtons = 5
  110.     'button direction
  111.     QCGrpBut1.ControlButtonHorizontal = False
  112.     'colors
  113.     QCGrpBut1.ControlColor = RGB(255, 255, 255)
  114.     QCGrpBut1.ControlOffColor = RGB(255, 255, 128)
  115.     QCGrpBut1.ControlTitleColor = RGB(255, 0, 0)
  116.     CR = Chr(13) ' make CR a carriage return string
  117.     sButtonStrings = "Coffee" + CR + "Latte" + CR + "Cappucino" + CR + "Tea" + CR + "Cocoa" + CR
  118.     'button string
  119.     QCGrpBut1.ControllButtonString = sButtonStrings
  120. End Sub
  121. Private Sub BuildGraph2()
  122. Dim sButtonStrings As String
  123. Dim CR As String
  124.      QCGrpBut2.ControlNumButtons = 3
  125.     CR = Chr(13) ' make CR a carriage return string
  126.        sButtonStrings = "8 oz" + CR + "16 oz" + CR + "32 oz"
  127.     QCGrpBut2.ControllButtonString = sButtonStrings
  128. End Sub
  129. Private Sub BuildGraph3()
  130.        QCScrBar1.ControlTitleString = "Temperature"
  131.     QCScrBar1.ControlTop = 0.3
  132.     QCScrBar1.ControlColor = RGB(255, 0, 0)
  133. End Sub
  134. Private Sub BuildGraph4()
  135.      QCScrBar2.ControlTitleString = "Strength"
  136.     QCScrBar2.ControlTop = 0.15
  137. End Sub
  138. Private Sub BuildGraph5()
  139.    QCButton1.ControlButtonString = "Cinnamon"
  140.    QCButton2.ControlButtonString = "Chocolate"
  141.    QCButton3.ControlButtonString = "Whip Cream"
  142.     QCButton1.ControlTitleFontSize = 8
  143.     QCButton1.ControlTitleColor = RGB_WHITE
  144.     QCButton1.ControlColor = RGB_GREEN
  145.     QCButton1.ControlButtonLook = BC_LOOK_HIGH
  146.     QCButton2.ControlTitleFontSize = 8
  147.     QCButton2.ControlTitleColor = RGB_WHITE
  148.     QCButton2.ControlColor = RGB_GREEN
  149.     QCButton3.ControlTitleFontSize = 8
  150.     QCButton3.ControlTitleColor = RGB_WHITE
  151.     QCButton3.ControlColor = RGB_GREEN
  152. End Sub
  153.